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KK NEXT MEET ING KX 
SATURDAY q JUNE 18st — Open at 2PM 


ARMBRUSTER SCHOOL — GREENDALE 


MEETING ADGENDA 


2:00 PM Basic class - Linda Scott 
Review beginning BASIC instructions 


2:00 PM Education S.I.G. - Joe Sanders 
Organization meeting 


3:99 PM Business meeting 
Officers’ reports 
Old business 
New business 
4:99 PM Report from C.E.S. 
Several members will share their observations 


from the Summer C.E.S. 
Slides of the NEW Atari products will be shown 


X OK In This Issue KX 
Learn how to use our BBS - page 3 
Education S.I.G. starting up - page 4 
UWM summer semester computer short courses - page 5 
DOUBLE DENSITY on your ATARI 819 ???? — page 6 
Programming examples - DEMOPAC #3 — page 7 
TAKE-ME-OUT-TO-THE-BALLGAME be Gary Nolan - page 11 


ATARI BBS nation-wide phone list - page 13 


MILATARI 
Milwaukee Area ATARI Users Group 


This newsletter is written and 
printed by members of the Milwaukee 
Area ATARI Users Group (MILATARI), 
an association of individuals with 
a common interest in using and 
programming ATARI computers. 
MILATARI is not affiliated with the 
ATARI company, nor any other 
commercial organizations. 


All articles are written and 
donated by the membership. Opinions 
expressed in this publication are 
those of the individual author and 
do not necessarily represent, nor 
reflect, the opinions of MILATARI 
nor those of any other commercial 
or non-commercial organizations. 
Any article appearing in this 
newsletter may be reproducted, 
providing credit is given to the 
author and to MILATARI. 


Write MILATARI Newsletter at P.O. 
Box 1191, Waukesha, WI 53187. 


MEMBERSHIP INFORMATION 


Membership is open to individuals 
and families who are interested in 
using and programming ATARI 
computers. The membership includes 
the subscription to this newsletter 
and access to the user’s library. 
The membership fee is $15 per year 
for individual, $290 for family and 
$10 for associate. Contact Larry 
Leskovsek, Treas. at 547-9249 or 
write MILATARI, P.O. Box 1191, 
Waukesha, WI 53187 for more 
information. 


MEETING INFORMATION 


MILATARI meetings are held once 


monthly. This month the meeting 
will be held at the Armbruster 
School, 79000 Greenway, Greendale, 
WI. The meeting is held in the 
multi-purpose room. BASIC classes 
begin at 2:00 P.M. Technical 
sessions are also held a 2:909 P.M. 


The business session begins at 3:490 
P.M. followed by demostrations. The 
library will be open before and 
after the business meeting. 
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MILATARI Officers: 


President Gary Nolan 
353-9716 
Vice-president Chris Stieber 
529-2663 
Treasurer Larry Leskovsek 
547-8249 
Secretary Jim Comaris 
353-3447 
Eduction Linda Scott 
Chairperson 466-2314 
Cassette Ron Friedel 


Librarian 354-1717 


Disk 
Librarian 


Steve Booth 
367-8739 


Publications Karl Buschhaus 


Librarian 774-2576 
Newsletter David Frazer 
Editor 942-7242 


Bulletin Board 
SYSOP 


Bill Simotti 
352-1799 


Technical support Group: 

The following members have 
indicated a willingness to assist 
MILATARI members. 


William Lawrence 1-968-3982 


Programming 
Don Wilcox 228-1659 
Programming 
Erik Hanson 252-3146 
Prog/Tech 
Gary Nolan 353-9716 
Prog/Tech 
Steve Booth 367-8739 
Programming 
Nick Liberski 786-8434 
Prog/Tech 


MILATARI Bullentin Board: 


maintains 
The 


The MILATARI Users Group 
a 24 hr bulletin board service. 
phone number is 352-2772. 
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HOW TO USE THE MIL— ATARI SUPER AMIS 
BULLETIN BOARD SYSTEM 
By SYSOP- BILL SIMOTTI 


PRIMARY FUNCTION: to allow the user to download programs from the BBS that 
later can be run on his/her computer. Also to upload files/programs that 
you have, to the Mil-Atari BBS. 


SECONDARY FUNCTION: full message system, with Account number and Password. 
If a user elects to send and receive private messages, he/she must request 
a password during sign-on. The password and account number will be 
activated within one week. Check "Z" in the main menu for your name and 
account number, to see if your password is functional. Only a user with an 
account number and password can send and receive private messages. 


SPECIAL FUNCTION: information database- Data info files called  "SIGx", 
(x=number of sig). Special Interest Group, taken from comp-u-serve's 
sig-atari BBS. These files contain latest Atari fact and/or rumors posted 
on the sig on compuserve by many of the Atari users. 


Modem/ B.B.S./ ONLINE DEFINITIONS 

B.B.S.- Bulletin Board System 

^.M.I.S.- Atari Message Information System 

Super A.M.I.S.- AMIS with private message system 


MODEM- hardware needed to connect phone to Atari 85# interface (in some 
cases directly from phone line to computer) 

A. Smart modem- a modem that has a computer built in for  auto-answer/ 
auto-dial the phone by computer/user commands and other functions. 

B. Dumb modem- a standard modem other than above. 


TERMINAL SOFTWARE- the software used in the computer to connect and run 
your modem, to access over phone line. 

A. Smart software- ability to upload and download and to use full 
computer ability and memory. 

b. Dumb Software- telelink, as an example, allows data from phone line 
to appear on TV screen, only. Your computer is called a dumb terminal, as 
this is all it can do. 


UPLOAD- send your file/ program/ data to another system. 
DOWNLOAD- take data/ file/ program from another system. 


ASCII- universal code for over the phone data communication between most 
types of computers. 


ATASCII- Atari ASCII, all atari codes needed and used in programming and 
data transfer of atari files. 


TRANSLATION- either ASCII or ATASCII 


FULL DUPLEX: used to communicate to any B.B.S. or Atari B.B.S. 
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HALF DUPLEX: used to communicate to any other computer that is being run as 
you are, manually. 


CARRIER- a tone signal to establish a link between two modems for data 
transfer. A connection would be called a "hand-shake" or "on-line". 


SYSOP- system operator (B.B.S.) 


XMODEM TRANSFER PROTOCOL- use with atari computers/ modem and software to 
verify that each file/program sector is being sent over the line correctly. 
Used especially to send and receive atari programs without error. 


PUBLIC DOMAIN PROGRAMS- programs/ files that can be copied and that are not 
for sale. 


MIL-ATARI BBS ACCESS DIRECTIONS 


BEFORE YOU CALL: 

-turn on your modem, interface and disk drive 

-load your terminal software 

-switch translation to ATASCII, ATARI TERMINAL MODE 

-to check if in ATASCII, hit inverse key and type something in terminal 
mode, if you see what your type is in inverse, then you are in ATASCII. 


CALL MIL-ATARI BBS: (414)352-2772 
-the BBS should answer within one ring, if not after 3 rings, hang-up 
-when a tone from the BBS is heard, switch in your modem by "originate" 


ONL INE: 

—you will see- 

—"ATARI USERS GO ATASCII, HIT <RETURN>" 

-if you are in ATASCII, you should see ATASCII in inverse, otherwise you 
are not, then this is the time to switch into it from your terminal 
software before you hit return 

-when prompted for name and address, type it in using upper case only. 

-in the main menu, type "H" or "?" for definitions of menu commands. 


MIL-ATARI SYSOP, BILL SIMOTTI - (414)352-1799 


EDUCATIONAL S. IL G 
Joe Sanders - Chairman 
(414) 447-1660 


The MILATARI User Group has established a committee for members who have 
expressed an interest in software and training for educational 
application.This special interest group will be addressing the needs of 
members who want to extend their use of computers in areas other than 
entertainment. 

In order to accomplish the immediate goals of the commitee, members 
should make an effort to attend our June 18, meeting scheduled for 2:99 
p.m.,before the regular business session, at Armbruster School , 7008 
Greenway,Greendale,Wi.The meeting for educaional users is open to everyone. 

Questions concerning the committee should be directed to Joe 
Sanders, 447-1668. 
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CSD COMPUTING SHORT COURSES 
SUMMER, 1983 


The Computing Services Division at the University of Wisconsin-Milwaukee 
short courses for the summer semester, 1983 will be scheduled on the basis 
of demostrated interest. Many of the courses should be of interest to 
MILATARI members with some of courses utilizing the ATARI 822. 

Tom Krischan will be teaching several of the course listed below. Please 
call Tom at (414)963-4998 for course descriptions and further details 


CSD COMPUTING SHORT COURSES -- SUMMER, 1983 
FREE SEMINARS -- One session each 

CSD Facilities and Services 

1 session 1-1/2 hours Free 
Data Entry 

1 session 2 hours Free 
UWM/ INFO 

1 session 1 hour Free 
Introduction to UDH on the Univac 1199 

1 session Z hours Free 
Introduction to MISER on the Univac 11960 

1 seeion 2 hours Free 
Overview of FORTH 

1 session 2 hours Free 


NON-CREDIT SHORT COURSES 


Introduction to Computing on the Univac 11968 


6 sessions 1 hour/session $20/$40XX* 
Interactive (Demand) Processing on the Univac 11499 
6 sessions 1 hour/session $20/$40*X* 
Interactive Statistics on the Univac 1199 
6 sessions 1 hour/session $20/$40X*X* 
Magnetic Tape Handling 
4 sessions 1 hour/session ٭ 167 ٭‎ 20 
Microcomputers for the Human Being 
4 sessions 1 hour/session $10/$20*X* 
*So You Want to Buy a Microcomputer... 
1 session 3 hours $16/$20XX 
Personal Computer BASIC for Beginners 
6 sessions 2 hours/session $350/$60XX* 
Telecomputing with Microcomputers 
2 sessions 2 hours/session 20ج 107 ٭‎ 
xComputer Game Design 
1 session 3 hours ٭‎ 1987 20 
X*XIntermediate Graphics and Animation 
3 sessions 2 hours/session $20/$40X* 


OTHER POSSIBILITIES 


UNIX -- course length and cost to be determined 

C —— course length and cost to be determined 

* = courses which enclude the use of the ATARI 8680690 

xX = The first course fees listed are for UWM students, faculty or 
staff. 
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Others pay the second (higher) fee. 


Each course will be scheduled if a sufficient number of responses are 
received by Monday, June 27th. Everyone who completes a short course 
interest form will be contacted about when and where the class will be 
held. Send your interest form to: 


User Services - UWM Computing Services 
EMS E389 
P.O. Box 413 
Milwaukee, WI 551 


CSD Short Course Interest Form -— Summer, 1983 
رر راد‎ ۹۰۰۸۷۷۷۸۹۹۸000 E ER ET E 
:گ9 7 7 ی00 = ر_ رر‎ 
PHONG? XEM IJ جو‎ 0 cr Red سی‎ 
TIMES PREFERRED 

COURSES (indicate both days and time) 
ہرم وہ‎ (SIS a ا یہ‎ AA NO. GA ee s Oe Ee T کیا ...ےپ بی‎ enn کو .سا ہک‎ 
2 apro PEERS ےک‎ ME Oa کے‎ ٠ وس ا ہے‎ CC مد‎ es چک‎ 
3. 


DOUBLE DENSITY 
on Your ATARI 8168 —72727272 


(This message was pulled off the ATARI bulletn board on the The SOURCE. 
Hopefully, one of the hackers in our membership will get a hold of this 
conversion and submit a review.) 


NO, THIS IS NOT A TRANSMISSION ERROR! Your 819 disk drive can now become a 
DOUBLE DENSITY powerhouse with the new NCT "819 TURBO" Conversion Board by 
NCT. The "818 TURBO" easily installs INSIDE your 818 with no cutting, 
wiring, or soldering. A simple project with complete, clear installation 
instructions. And it even does a couple of other nice little things: 


DOUBLE DENSITY - Format, read & write. Totally compatable with Percom and 
the new Atari DD coming soon. THINK ABOUT IT! Now - 176K on every disk! 
SINGLE DENSITY - Your existing disks will still load with "810 TURBO" and 
they*11 do it much faster and a lot more efficiently. 

AUTO READ - No switches, no software. "818 TURBO" KNOWS if it's SD or DD. 
DATA SEPARATOR - Greater speed tolerance. No more error-138 or error-144. 
FAST CHIP - EVERYTHING happens faster! Format, read and write! 

BACKEMUP - INCLUDED! Back up your expensive protected disks - all of ’em! 
PACKEMUP - INCLUDED! Cut backups, then pack them on one disk for economy. 


RETAIL $295.00 (Complete - no extras) SOURCE SUBS INTRO OFFER - $239.09 


NCT - P.0.Box 16489 - Irvine, CA 92713 - 714/770-0572 (CA+6%Z, VISA, MC) 
(Shipping prepaid, No bankcard upcharge. No C.0.0. Full payment w/order.) 
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FPROGRAMMING EXAMPLES 


Some miscellaneous examples and discussions of programming the ATARI 
400/8909 Home Computer System 


1) Formatting Dollar Amounts 
2) Bubble-Sort 
3) Rocksort 
4) Real-time Clock 
9) Getting Data From the Keyboard 


Information provided by: 


ATARI INC. 
CONSUMER PRODUCT SERVICE 
PRODUCT SUPPORT GROUP 


DEMOPAC #3 


Formatting Dollar Amounts 
DEB 5/82 


The following program illustrates a method of formatting dollar amounts, 
— on the screen or on a printer. This example accepts input of number amounts 
between @ and 9999.99 
The program checks each input numver and rounds it off to two decimal 
places, adding trailing zeros if necessary. The number is turned into a 
string, and concatenated onto a dollar sign. There is some error-checking, 
for non-numberic or  out-of-range input. Output is then formatted into 
evenly spaced columns. 
There are two versions of the program. The first stores the input data in 
a long-string array in memory, and prints the output on a printer. The 
second version creates a data file to store the data on cassette or 
diskette. It then prints the output on the screen. 


1 REM FORMATTING DOLLAR AMOUNTS 

2 REM VERSION 1 

3 REM DEB 5/82 

4 REM this version stores data in a long-string array 

S REM and prints output on a printer 

& REM .DoxoxxoookoxokoxocxokoooxooxoxoXoxooxooxokoe ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭‎ ses sss ess secedsddssee ss ss es XK 
18 REM initialization 

20 DIM AMOUNTS (242) , DOLLARS (25) , YNS$ (3) , ARRAYS (1000) , SPACES (12) 

38 SPACES=" "sREM format output for evenly spaced columns 
40 COUNT-1:REM set counter for number of inputs 

569 TRAP SO:PRINT "VALUE..";: INPUT AMOUNT: TRAP 49999 

SS REM Xxx 8٭×٭× ٭×٭×٭ ٭٭٭٭ ٭×٭×٭×٭ ٭‎ format each amount  XpMecroeooioooooec co oeoeoooCEXGX 
40 SIGN=SGN (AMOUNT) : AMOUNT=ABS (AMOUNT) :REM keep track of sign 

70 AMOUNT-INT ( (AMOUNT+5. @E-@3) X100) /100: REM round for dollar amount 
80 AMOUNT=AMOUNTXSIGN: REM restore sign 

98 AMOUNT$=STR$ (AMOUNT) :REM turn amount into string 

100 DOLLARLEN-LEN(STR$(INT(OAMOUNT)):REM separte dollars from cents 


rane d 
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CENTSLEN=LEN (AMOUNT $) —DOLLARLEN 
IF CENTSLEN-2 THEN AMOUNTS (LEN (AMOUNTS) *1)-".00":REM check for 
trailing zeros 

IF CENTSLEN-2 THEN AMOUNTS (LEN (AMOUNTS) *1)-"g" 
DOLLAR$-"$ ":REM string containing dollar sign and 4 spaces" 
TRAP 5@:DOLLARS=DOLLARS (1, 5-DOLLARLEND : REM allow only 4 digit number 
DOLLARS (LEN (DOLLARS) +1) =AMOUNT#:REM concatenate to dollar sign 
ARRAYS (LEN (ARRAYS) +1) =DOLLAR$:REM add element to array 
PRINT "ANY MORE"; : TRAP SO: INPUT YNS$ 

IF YNS#(1,1)<>"Y" THEN IF YNS$(1,1)<>"N" THEN GOTO 189 

IF YNS$(1,1)-"N" THEN GOTO 249 

IF COUNT-40 THEN ? "ARRAY FULL":GOTO 249 

COUNT=COUNT+1:GOTO 598:۰۲۲ get another number 
REM ٭× ٭× ٭× ٭× ×× ٭× ×× ×٭× ٭ ٭ ٭ ٭×٭×٭×ا‎ ooo ooo oc ٭ ٭× ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭‎ KKK ٭ ٭ ٭ ٭× ٭× ٭ ٭× ×× ٭ا ٭× ٭×‎ XE X 
REM printout routine 
OPEN #2,8,9,"P:":REM open printer file 

FIELD=1:REM determines location of element in string array 
COUNT=@:REM check for end of line 

TRAP 319:PRINT #2; ARRAYS (FIELD, FIELD+7) ; SPACE; 

289 FIELD=F IELD+8: COUNT=COUNT+1 

IF COUNT-4 THEN PRINT #2:GOTO 26@:REM execute carriage return 
GOTO 279 
PRINT #2:CLOSE #2:REM close files when data is finished 

END 


EM FORMATTING DOLLAR AMOUNTS 

EM VERSION 2 

EM DEB 5/82 

EM this version stores data in a data file on cassette or disk 

EM and prints the formatted output on the screen 

EM ٭ ×× ٭×٭×ا ٭٭×٭ ٭×٭ ٭×٭××٭×‎ ×× AAA ARREARS 

REM initialization 

DIM AMOUNTS (29) , DOLLARS (25) , YNS$ (3) 

REM OPEN 41,8,0,"C:":REM for cassette use 

OPEN 41,8,0,"D: PRINT.FMT":REM for diskette use 

TRAP 5@:PRINT "VALUE.."s;:INPUT AMOUNT: TRAP 490000 

۴ک ×۴ کر کر رد کر کر رک ۷ر دک رع ×× × ل×  REM x3xxxdkxxxxxXxxx*x*x*Xx format each amount‏ 

516-5611 (AMOUNT) : AMOUNT=ABS (AMOUNT) : REM keep track of sign 
AMOUNT=INT ( (AMOUNT+5. @E-@3) X100) /109: REM round for dollar amount 

AMOUNT-AMOUNTXSIGN:REM restore sign 

AMOUNT$-STR$ (AMOUNT) : REM turn amount into string 
DOLLARLEN-LEN (STR$ (INT (AMOUNT) ):REM separte dollars from cents 


119 CENTSLEN-LEN (AMOUNTS) CDOLLARLEN 


IF CENTSLEN- THEN AMOUNTS (LEN (AMOUNTS) *1) =" . 00" : REM check for 
trailing zeros 


139 IF CENTSLEN-2 THEN AMOUNTS (LEN (AMOUNTS) +1( -"g" 


PRINT 
DOLLARS="% "REM string containing dollar sign and 4 spaces" 


160 TRAP 59: DOLLAR$-DOLLAR$ (1,5-DOLLARLEN) :REM allow only 4 digit number 
170 DOLLARS (LEN (DOLLARS) *1) ZAaMOUNT$:REM concatenate to dollar sign 

189 PRINT #1;DOLLAR$:REM print formatted string to data file 

190 PRINT "ANY MORE"; : TRAP S50: INPUT YNS$ 

209 IF YNS#(1,1)="N" THEN GOTO 2390 

218 IF YNS$(1,10«»5"Y" THEN IF YNS#(1,1)<>"N" THEN GOTO ۵ 

220 GOTO 8 

239 CLOSE #1 
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٭× 8 ٭ ٭ ٭ ٭ ٭× KARR‏ ٭× ×× × × KR KKK‏ ٭ ×× ٭× × ٭ ٭× ٭ ٭×٭ ٭ ٭ ٭٭× ٭ ٭× ٭ ٭× × ٭× ٭ ٭ ٭× ٭ ٭ ×× REM‏ 235 


REM get data from data file and print in columns on screen 


259 REM OPEN #1,4,9,"C:":REM use for cassttee; position tape first 


OPEN #1,4,4,"D:PRINT.FMT":REM use for diskette 


278 POKE 82,0:REM move margin out for even columns 


R 
R 
6 R 


140 
tem 
152 
1690 
179 
189 
199 
191 
192 
195 
199 
2090 
2190 
220 
230 
240 
250 


OFEN #2,8,@,"S:" 

? :7 sPRINT #2;" FORMATTED DOLLAR AMOUNTS";:? :? 
TRAP 330: INPUT 41; DOLLAR$:REM bring in record 

PRINT 42;DOLLAR$,:REM comma inserts spaces for columns 
GOTO 399 

CLOSE #1:CLOSE #2:REM close files when data is finished 
END 


EM BUBBLE SORT 

EM PY/JB 4/82 

EM the following program illustrates a simple sort process 

EM :the user inputs numbers, which are kept in a numeric array. 
EM :T>the array is then sorted and printed out in order. 

۰۳ ٭ ٭ ٭ ٭× ٭ ٭× ٭× ٭× ×٭ ٭× ٭× ٭ × × ٭× ×× × × ٭× ٭ ٭ × ٭ ٭ ٭ × × ٭ ٭ × × ٭× ٭ × × ٭× ×٭× ×٭ × ٭× ٭ ×× ٭× ٭× × × ×× ×٭× ×× ٭× × × EM x X × × X‏ 
DIM ۵)182( : ٢١٢ this array holds the data to be sorted‏ 

PRINT "HOW MANY ITEMS TO SORT" 3: INPUT TOTAL 

FOR I-1 TO TOTAL 

PRINT "ENTER A NUMBER. .. "; : INPUT NUMBER 

ACI)=NUMBER:REM assign data element to array 

NEXT I 

REM print out unsorted list for comparison 

FOR I=1 TO TOTAL 


PRINT ACT) 

NEXT I 

REM XXXKXXKKXKXKXKXKXKKXKKXKKKKKKKKKKKKKKKKXKXKKKKKKKKKKKKKKKKKKKKKXKKKKKK 
REM sort the array 

PASS=@:REM keep track of how many times through the list 
FLAG-90:REM flag=1 indicates that more sorting is necessary 

FOR I-1 TO TOTAL-1 

IF ACI+1) >=A(I) THEN 182:۰5۲ if this item is less than the next, 
REM they are in the right order, so skip to the next item 
TEMP-A(ID:REM if they're in the wrong order, store the item 

porarily 


ACI) =A(I+1):REM in order to 

ACI+1)=TEMP:REM switch the order 

FLAG=1:REM set the flag to show that a change was made 

NEXT I:REM check the next item 

IF FLAG=1 THEN PASS=PASS+1:PRINT "PASS-";PASS:60TO 8 

REM after each pass, check the flag 

REM to see if any changes were made: if so, try again. 

REM XXXKKKKKKKKKKKKKKEKRKKE و و و و و و و‎ RRR AAR KER ERA و و و و و و جو‎ K KKK 


REM print out the sorted list 
PRINT “SORTED LIST..." 

FOR I=1 TO TOTAL 

PRINT A(I) 

NEXT I 

PRINT "--END OF PROGRAM--" 
END 


raoe 9 


1 

2R 
SR 
4 R 
5 R 
6 R 


999 
100 
121 
102 
193 
194 
125 
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REM ROCKSORT 


EM WB/JB 4/82 
EM sort a string of up to 8@ characters 

EM by making the biggest ones 'fall through’ to the bottom 
EM there is background music, and the sort is timed 

EM ٭ ×٭ ٭×٭× ٭×٭××‎ KARA و کر کر کر ا کر کارب کر کر ج ع غر کرک کر ×٭ و ×× ٭ ٭ ×× ٭ ×× ٭ ٭ ٭ ٭ ٭ ٭ ٭ ٭× ٭ ٭ ٭ ٭ ٭×‎ ۴ 
DIM SORT$ (80) , BUF$ (1) , TONE (80) : ۳۲٢٢ set up variables 
GRAPHICS @:POKE 82,9:REM clear screen, set left margin at column 9 
FOR I-1 TO 86 STEP 2:READ T:TONE(IO)-T: TONE(I+1)=T:NEXT I 
REM set up array with tone data for the sound statement 
DATA 29,31,33,35,37,40,42,45,47,590,55,57,60,64,68,72,76,81,85,91,96 
DATA 102,1908,11,121,128,1:36,144,155,162,173,182,193 

DATA 294, 217, 217, 239, 239, 243,243 
REM  xoXoookorororookooororokorororororororokokoe ooo o KKK ERK AKA AKER EKER EKER EEE 
PRINT "8% CHARACTER STRING TO BE SORTED" 

INPUT SORTS 
LAST-LEN(SORT$):REM keep track of where to stop sorting 
GRAPHICS 2:PRINT #6;SORT$:REM display string in large letters 
POKE 752,1:REM disable cursor . 
POKE 18,@:POKE 1, 8:۴0۴۴ 26, 8:5۲ initialize real-time-clock 
REM XX oXooooooreororokoroooxoeooroxoorootooo IG IORODIOIOIGIGEGICIGOICIOIOOEEECGECOIOOEEEEEXCKECEEEGEEX | 
REM the following section contains the actual sort, 

REM along with the background music 

FOR I=LAST-1 TO 1 STEP -1:REM outer loop 

SOUND 2,TONE(I?),10,10:REM first voice of background music 
FLAG=@:REM this flag turns 1 if any changes are made during the sort 
FOR J-1 TO I:REM inner loop 

SOUND 1, TONE(J),19,8:REM second voice of background music 

REM --here's the sort itself 

IF SORT$(J,J)»SORT$(J-*1,J*1) THEN BUF$-SORT$(J,J):SORT$(QGJ,J)- 
SORT$ (J+1, J+1): SORTS (J+1,3+1) =BUFS:K=1 

REM if top item is larger, exchange places with next item, 

and set flag 

POSITION @,@:PRINT #6;SORT$:REM display latest version of string 
NEXT J:REM inner loop 

IF K=@ THEN I-1:REM check flag-if no changes, skip to last loop 
NEXT I:REM outer loop 

REM XXXXKXKXKKKKKKKKXKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
REM --finnish up-- 

POKE 752,@:REM re-enable cursor 

SOUND 1,20,0,0:REM turn off second voice 

FOR I=29 TO @ STEP -1:SO0UND @,1,19,1@:NEXT I:REM ist voice signals end 
GOSUB 1696:٤٠٢۲ call subroutine which figures elapsed time 

PRINT "ELAPSED TIME ";HH;":";MM;":";SS; 

END , 

REM 3 X Xo ooo ooo o roxokoxooooooooXookorooro ooo rororororooorotoore eoo cIcOOGIOOIOIOEEEECKEK 
REM the following subroutine retrives the real-time clock values 
REM and turns the results into hours(HH), munites(MM) and seconds(SS) 
Ø SS-(PEEK(18) *256*256+PEEK (19) X256*PEEK (C20) / 68 
@ HH-INT (SS/ (69*69) ) 

Ø SS-SS-HHX*o6o90*690 
Ø MM=INT (SS/6@) 

9 SS-INT (S8-MM*69) 
@ RETURN 
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TAFE —PME —OUUT — TO— THE — BALL GAME 
by Gary Nolan 


Last month I asked the musical question "Does Atari want to play 
hardball?" Well a couple of days before the big game (CES) Atari announced 
thier new team line-up. And the stats look pretty impressive. Leading off 
will be the 6@@XL (finally) with 16K, built-in Atari Basic and a "List" of 
$199. Next is the 8@@XL with 64K, built in Basic and a list of $299. Third 
1s the 1400XL with built in modem, speech capability and Basic. With a list 
of $499. In the clean-up spot the home run hitter is the 14@@XLD. It sports 
all the above plus a built-in double sided drive with room for another. The 
list is "said" to be between $798 and $8090. Rounding out the new team will 
be the 1027 letter quality printer, 1030 direct connect modem with built in 
telecommunication software, the 1050 disk drive (same 88K cap.) 
(aaaaaarrrrrrrgggggg), but later this year a new DOS III which gives you 
127K of storage. (not impressive, but a step in the right direction!) will 
be released. Other planned products are a Trak ball, graphics tablet, 
something called the Atari Expansion System which will allow the new 
computers to add control cards and special peripherals. And an Atari CP/M 
external microprocessor upgrade to allow ALL Atari computers to run CP/M. 
(This I GOTTA see). This is all pre-show info, and while the product data 
comes from Atari the prices are second hand so the prices might change when 
I get down to Chitown but the specs should stay the same. 


Speaking of the WINDY CITY and the CES, at the June meeting we'll have a 
report on the CES and the new line-up from Atari featuring slides of 
interesting computer products, my trip to the Dells and Dave's dog. 


HUH, did somebody say something??? 

Maybe I didn't say it loud enough or maybe you wern’t listening. But the 
Printer Expo WAS suppose to be this month. I say WAS because it will have 
to be canceled due to lack of interest. Not on the part of those who would 
like to buy a printer but from those of you who own them. So much for the 
volunteer system. 


And speaking of printers, AXIOM has a new printer that plugs directly 
into the 4400/8600/12080 serial buss and thereby eliminates the need for the 
858 Interface. It has a list price of $299 and can chain a disk or cassette 
because it too has a serial port on it. Takes up to 190" tractor feed paper, 
catridge ribbon, 89 col. wide print at 10 char. per inch, double width 
char., 3# cps, full graphics capability and a TWO year end-user warranty. 
If it breakswithin that time, they fix it or send you a NEW printer. It 
might be a little slow, but if all you need is a line printer with some 
graphics, but the price and warranty make up for it somewhat. AXIOM is 
part of the Seikosha group, and thems the people that make the EPSON 
printers. 


SEE DICH RUN. SEE THE DOG JUMF. 

The educational special intesest group will hold it’s first meeting on 
June 18th. That’s the da of the meeting. The time is 2:44pm and the place 
is Ambruster school. Joe Sanders, the chairman, along with some others have 
put together a good looking program . So if you're interested in the 
educational aspects of computing you'll want to be there. 
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THE ENYELOFE PLEASE 
According to a poll taken by Softline magazine the top three games for 
Atari computers are Star Raiders, Jawbreakers and Pac-Man. Top three 
applications programs were Visicalc, File Manager 89@ and Letter Perfect. 


WHY DOES IT TAKE SO LONG??? 

As fast as the 819 is in saving and loading data, as compared to the 
cassette recorder, it’s one of the slowest drives on the market. It also 
has one of the lowest capacities as far as total bytes, With ۴ 
(formated). Although the new drive, the 10590, has a faster transfer rate 
it’s capacity is still small. You could by a Percom double density drive, 
Or wait for Rana and Micro Mainframe to get thier drives on the market 
(Billy stop holding your breath or your face will stay that color'). OR 
(you knew there was an alternative) you can buy something called the NCT 
819 TURBO Conversion Board. For $295 you get double density  (186K), auto 
sensing of double or single density, data separator, faster reads/writes 
than any drive available for the Atari twice as fast in DD mode. Two 
utility programs to allow you to back-up and "pack" disks and a one year 
warranty round out the features. See feature on page 6 for ordering 
information. 


SAY WHAT? 

1:711 hold off on any Atari rumors until next month. But I do have a good 
Apple story for you. Apple is going to get into the “home" market. How? By 
dropping the price of the Ile to $600. If true, it's sure going to raise 
some peoples temperatures. 


SAY IT AIN” T SO JOE 
(Or; Which one of you guys is the Big Bad Wolf anyway?) 

I wonder if Atari will go ahead with it's suit against Mr. Bushnell now 
that they've signed thier agreement. You know, the one that gives Atari 
first dibs on any new arcade game Nolan develops. It's not only politics 
that makes strange bedfellows. 


SAY GOODNIGHT TO THE NICE FEOPLE © 
GARY 
Dave told me not to get carried away this month. WHAT! ME! Anyway, I’ve 
have to go load my camera and pack some things. So untill the 18th, 
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SSP SESCSS ESE SSS CE SS SSS SECS SSS SSS SSS SS | 

* OTHER ATARI BESs 

! FROM A.R.C.A.D.E. BB x 

k 313-978-8987 x 

¥ UPDATED 75/38/83 x 

* NOTES: x 

* L = LIMITED Evenings & Weekends kx 

* R = RING-BACK Call, Call-back Li 

x # = ORIGINAL of This format x 

* X = 24 HOUR Operation x 

x Listed by Location x 

x x 

kKPlease send Updates/Corrections to: ¥ 

* A.R.C.A.D.E. BBS 313-978-8ø87 x 

* Specify: as per the below format! * 

ST | AC-NUMBER TYFE NAME NOTE 

CA 213-366-2125 AMIS T.A.B.B.S. ك۴‎ 

CA 213-783-8373 AMIS W.V.A.U.G. x 

CA 498-253-5216 AMIS GFX x 

CA 498-298-6939 AMIS IRBS L 

CA 498-942-6975 AMIS TEAM L 

CA 415-527-8276 ARMU SYNAPSE L 

CA 714-973-2686 ARMU ORANGE CTY. x 

CA 916-363-3384 AMIS A.C.C.E.S.S. x 

CA 916-487-3679 AMIS S.A.C.S BBS ا‎ 
TO 383-221-1779 TARI POOR RICHARD ا‎ 

Z0 393-758-6232 AMIS DENVER L 

DC 2@2-276-8342 ARMU WASHINGTON LE NJ 

FL 365-258-1251 AMIS APOGEE * NV 

FL 813-577-9448 AMIS ST. PETE ? NY 

GA 494-252-9438 ATAB ROD R. # NY 

IL 312-628-6441 AMIS S.C.A.T. * NY 

IL 312-789-9499 RBBS CHICAGO * OH 

IL 312-789-3616 AMIS CHICAGO * OH 

IL 312-889-1248 AMIS C.L.A.U.G. * OH 

LA 584-273-3116 RBBS BATON ROUGE * ok 

MA 617-266-7789 BULT BOSTON BULLETK ok 

MA 617-497-9954 AMIS ? ? Ok 

MA 617-595-9211 AMIS NORTH SHORE * OR 

MA 617-667-7388 AMIS MACRO EXCH. * pa 

MA 617-957-1976 AMIS ALPHA CONTRL ? pa 

MD 391-544-2468 TARI SEVERNA PARK ? pa 

MD 391-587-2132 ARMU COMPUTER AGE ا‎ pa 

MD 341-871-5378 ? RICKY MOOSE ? pa 

MI 313-274-3940 AMIS M.A.C.E. W. * pa 

MI 313-544-6885 AMIS M.A.C.E. ** RI 

MI 313-759-6569 CBBS ROYAL OAK KR ty 

MI 313-978-8087 AMIS A.R.C-A.D.E. * ry 

MI 616-241-1971 AMIS G.R.A.S.S. * TX 

MO 314-4352-70454 AMIS ComputerCave ا‎ wa 
_ NC 919-692-7718 AMIS A.C.C.E.5.5. * WA 

WJ 281-329-7487 AMIS BAYONNE ٭‎ WI 

NJ 689-267-7825 TARI BOR ALLEGER L# wy 
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ATARI COMPUTER 
ENTHUSIASTS 


699-924-5875 
702-7535-9488 
212-241-8965 
212-767-6633 
212-568-9682 
216-582-2797 
419-423-0206 
614-476-2935 
495-681-6929 
405-685-2027 
405-722-9036 
5893-343-4352 
215-25ø-9471 
213-333-3755 
215-398-3937 
215-432-9848 
215-836-5116 
412-655-2652 
491-521-1998 
214-684-9418 
817-485-1892 
817-589-1254 
206-525-3412 
509-582-5217 
414-332-2772 
608-251-8538 


TARI 
AMIS 
AMIS 
AMIS 
AMIS 
TARI 
AMIS 


AMIS 
AMIS 
ARMU 
ARMU 
AMIS 
AMIS 
REBS 
AMIS 
RBRS 
ARMU 
AMIS 
AMIS 
AMIS 
ARMU 
AMIS 
AMIS 
AMIS 
AMIS 


ELECT. CANDY 
LAS VEGAS 
SPIDER WEB 
Info 899 
DANTE’S INF. 
BCHWOD FLS. 
FLAGCITY 
ATRPOST DEMO 
۲688 1 

SW. SAFARIS 
GREKELCOM 
A.C.E. 
CARNIVAL 
2 BES 
ALLENTOWN 
STARCADE 
CHELTENHAM 
FACE 


DALLAS LASER 
Fort Worth 
ACUGD 

SPACE 

A2-D2 
MIL-ATARI 
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*x*KK BADGER SOFTWARE ook x 
Your ATARI specialists 
ATARI ATARI 
SUMMER SPECIALS 


UPGRADE YOUR ATARI ۰ Gemini 18 Printer....... eee یں‎ $325. 08 


Signalaan MKII-AT 1150 AA ۶و اکر ا ای‎ 6۴ 85.08 
OMNINON! resident monitor. .ccccccsccecscvecsessd 79.00 
FASTCHIP fast floating pointssccccccccecsseeere$ 34.00 


cuc Ba AUSTIN 86 Austin Franklin's 88 colusn board. ... $215.99 

=== Austin Franklin 485:1: 8 

Inhoae B-Key Keyboard..............SUQg. list $119.95 Austin Franklin 32K... eeee eene net 79.00 
ن4‎ 5۲۰٢ Franklin د:::::.485‎ oo Sugg. list $114.95 


We also carry.... 
These two fine products, installed, for only $160.00! 
Software of all kinds 
Coaputer desks by O'Suliiivan 
Coaputer monitors by USI & ۴۲ 
Printers by Gemini & Epson 
Percona disk drives 
Corning soon....RANA Drives 
And such, auch aore! 


BADGER SOFTWARE 
9225 W. WATERFORD SOR.N. 
GREENFIELD, WIS. 53228 
414-321-6628 
414-782-5594 


Call us or see our reps. at the June Mil-Atari metting. 


All prices good thru July 31, 1983 
ATARI & ATARI 488 are trademarks of ATARI Inc. & Warner Cosasunications. 


